Tugas 5 kalkulator Tidak Menggunakan Keypress

Source kode :

Private Sub cmdhitung_Click()

txttotal1 = Val(txtnilai1) + (txtnilai2)

txttotal2 = Val(txtnilai3) / (txtnilai4)

txttotal3 = Val(txtnilai5) - (txtnilai6)

txttotal4 = Val(txtnilai7) * (txtnilai8)

End Sub

Private Sub cmdbatal_click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdlagi_Click()

txtnilai1 = ""

txtnilai2 = ""

txtnilai3 = ""

txtnilai4 = ""

txtnilai5 = ""

txtnilai6 = ""

txtnilai7 = ""

txtnilai8 = ""

txttotal1 = ""

txttotal2 = ""

txttotal4 = ""

txttotal3 = ""

txtnilai1.SetFocus

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub